home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00275.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  479 b   |  16 lines
  1. on updateSexLevel
  2.   global SexLevel
  3.   puppetSprite(18, 1)
  4.   set the locH of sprite 18 to 415 + (11 * SexLevel)
  5.   set the locV of sprite 18 to 346
  6.   puppetSprite(20, 1)
  7.   set the text of cast "SexLevel" to string(SexLevel)
  8.   set the textFont of field "SexLevel" to "Helvetica"
  9.   set the textStyle of field "SexLevel" to "Bold"
  10.   set the textSize of field "SexLevel" to 18
  11.   if the colorDepth = 8 then
  12.     set the foreColor of member "SexLevel" to 180
  13.   end if
  14.   updateStage()
  15. end
  16.